home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Club 1999 February / Software of the Month - Ultimate Collection Shareware 258.iso / pc / dtp.dir / 00001_Script_1 next >
Text File  |  1998-12-07  |  4KB  |  188 lines
  1.  
  2. on startMovie
  3.   
  4.   global  LINECLICK 
  5.   set LINECLICK to 1
  6.   set the forecolor of member "progDisplay" to 255 -- set text to black
  7.   set the forecolor of line 1 of member "progDisplay" to 0
  8.   --* This declares the variables for the finger cursor. *
  9.   
  10.   global FINGER, FINGERMASK,MAGNIFY, MAGNIFY2, MAGNIFYMASK
  11.   set FINGER to the memberNum of member "Finger1"
  12.   set FINGERMASK to the memberNum of member "Finger2"
  13.   set MAGNIFY to the memberNum of member "MAGGLASS"
  14.   set MAGNIFY2 to the memberNum of member "MAGGLASS2"
  15.   set MAGNIFYMASK to the memberNum of member "MAGGLASS1"
  16.   glowClear()
  17.   
  18. end
  19.  
  20.  
  21. --* This handler hides/shows the glow images. eg: glow(5,TRUE) *
  22.  
  23. on glow WHICHSPRITE, TRUEORFALSE
  24.   set the visible of sprite WHICHSPRITE to TRUEORFALSE
  25. end glow
  26.  
  27. --* TURN OF ALL GLOWS ON START
  28. on glowClear
  29.   repeat with i = 20 to 36
  30.     glow(i)
  31.   end repeat
  32.   
  33.   glow(53)
  34. end
  35.  
  36. --* This handler switches the text color for a glow effect. eg.textglow("Hello",1)*
  37.  
  38. on textglow WHICHMEMBER, COLORNUMBER
  39.   set the foreColor of member WHICHMEMBER to COLORNUMBER  
  40. end textglow
  41.  
  42.  
  43. --* THIS HANDLER EXAMPLE OF DISABLEING HOTSPOTS WHEN RUNNING MIAW*
  44. --on mouseEnter
  45. --  if not count(the windowList) then
  46. --    doRollover(52)
  47. --  end if
  48. --end
  49. --
  50. --
  51. --on mouseLeave
  52. --  if not count(the windowList) then
  53. --    doRollout(52)
  54. --  end if
  55. --end
  56.  
  57.  
  58.  
  59. --* THIS HANDLER OPEN AND CENTERS A MOVIE IN A WINDOW *
  60.  
  61. on openMIAW MYWINDOW
  62.   set myRect=the rect of window MYWINDOW
  63.   set myStage=the rect of the Stage
  64.   set myWidth=(getAt(myRect,3)-getAt(myRect,1))
  65.   set myHeight=(getAt(myRect,4)-getAt(myRect,2))
  66.   set myLocH=((getAt(myStage,3)+getAt(myStage,1))/2)-(myWidth/2)
  67.   set myLocV=((getAt(myStage,2)+getAt(myStage,4))/2)-(myHeight/2)
  68.   set myNewRect=rect(myLocH,myLocV,(myLocH+myWidth),(myLocV+myHeight))
  69.   set the rect of window MYWINDOW=myNewRect
  70.   set the windowType of window MYWINDOW to 2
  71.   open window MYWINDOW
  72. end openMIAW
  73.  
  74.  
  75. --* THESE HANDLERS TURN ON A GLOW, TURN POINTER A HAND AND PLAYS A SOUND *
  76.  
  77. on doRollover NUMSPRITE,NUMSOUND
  78.   glow(numsprite,TRUE)
  79.   global finger,fingermask
  80.   cursor[finger,fingermask]  
  81.   case  NUMSOUND of      
  82.     1: puppetsound 1, "Scissors"
  83.     2: puppetsound 1, "Butane"
  84.     3: puppetsound 1, "Scissors"
  85.     4: puppetsound 1, "Scissors"
  86.   end case 
  87.   updatestage
  88. end
  89.  
  90. on doRollover3 NUMSPRITE,NUMSOUND
  91.   glow(numsprite,TRUE)
  92.   global MAGNIFY, MAGNIFYMASK
  93.   cursor [MAGNIFY,MAGNIFYMASK]
  94.   updatestage
  95.   case  NUMSOUND of
  96.       
  97.     1: puppetsound 1, "Scissors"
  98.     2: puppetsound 1, "Butane"
  99.     3: puppetsound 1, "Scissors"
  100.     4: puppetsound 1, "Scissors"
  101.   end case  
  102. end
  103.  
  104.  
  105.  
  106. on doRollover4 NUMSPRITE,NUMSOUND
  107.   glow(numsprite,TRUE)
  108.   global MAGNIFY2, MAGNIFYMASK
  109.   cursor [MAGNIFY2,MAGNIFYMASK]
  110.   updatestage
  111.   case  NUMSOUND of
  112.       
  113.     1: puppetsound 1, "Scissors"
  114.     2: puppetsound 1, "Butane"
  115.     3: puppetsound 1, "Scissors"
  116.     4: puppetsound 1, "Scissors"
  117.   end case  
  118. end
  119.  
  120.  
  121.  
  122.  
  123. --* THIS HANDLER TURNS THE SPRITE PASSED TO IT TO INVISIBLE AND RESETS THE CURSOR
  124. on doRollout numsprite
  125.   glow(numsprite,FALSE)
  126.   cursor 0
  127. end
  128.  
  129. --* PLAYS A CLICK SOUND
  130.  
  131. on doClick
  132.   puppetsound 1,"close"
  133.   updateStage
  134. end
  135.  
  136.  
  137. on doZoomout numsprite,soundwait
  138.   puppetsound 1, "close"  
  139.   if soundwait then
  140.     repeat while soundbusy (1)
  141.     end repeat
  142.     set soundwait to FALSE
  143.   end if
  144.   glow(numsprite, TRUE)
  145.   global MAGNIFY2, MAGNIFYMASK
  146.   cursor [MAGNIFY2,MAGNIFYMASK]
  147.   updatestage
  148. end
  149.  
  150. on doZoomin numsprite,soundwait
  151.   puppetsound 1, "close"  
  152.   if soundwait then
  153.     repeat while soundbusy (1)
  154.     end repeat
  155.     set soundwait to FALSE
  156.   end if
  157.   glow(numsprite, TRUE)
  158.   global MAGNIFY, MAGNIFYMASK
  159.   cursor [MAGNIFY,MAGNIFYMASK]
  160.   updatestage
  161. end
  162.  
  163.  
  164. on setpath
  165.   Global SETUPPATH95,LINECLICK
  166.   
  167.   case LINECLICK of
  168.       
  169.     1:set SETUPPATH95 to "@\DTP\CDLabel\setup.exe"
  170.       
  171.     2:set SETUPPATH95 to "@\DTP\PageG\pageGenie98setup.exe"
  172.       
  173.     3:set SETUPPATH95 to "@\DTP\Slim\setup.exe"
  174.       
  175.     4:set SETUPPATH95 to "@\DTP\Webster\web2full.exe"
  176.       
  177.     5:set SETUPPATH95 to "@\DTP\Webstyle\style110.exe"
  178.       
  179.     6:set Setuppath95 to "@\DTP\XARA3D\Xara3d2n.exe"  
  180.       
  181.     7:set Setuppath95 to "@\DTP\XCube\Xaracube2.exe"  
  182.       
  183.       
  184.   end case
  185. end
  186.  
  187.  
  188.